home *** CD-ROM | disk | FTP | other *** search
QuickBASIC Tokenized Source | 1990-11-30 | 2.0 KB | 50 lines |
- MenuList
- StackSize
- WinStack0
- WinFrame
- A1000
- A1000.Window.Hskp
- MainMenu
- MainMenu.Data
- KeyFlds
- Putlinec
- MaxWin
- ExitKeysy
- TabLeno
- SBarQ
- InitWin
- WinPoint
- CngWin
- WinHandle
- Frame
- Shade
- PushWin
- Putwind
- NMALLOC
- Colorwin
- change
- colors
- without
- disturbing
- Copyright (c) 1988 Marcel Madonnaa
- Set up housekeeping for window drivers
- Stack will contain 2
- 0 characters or
- about 10 full screensa
- Window stack - we keep screen images
- and other info heres
- Define maximum number of windows as 20
- we keep specific window data herem
- Exit windows when [Esc] is pressed
- This next line means display a status bar on line 25 - foreground is bright
- white, background is blue
- Make this 0 if you get distortion
- Initialize windowing system
- Fill screen with a new backgroundt
- Establish window parametersg
- Test Window Re-Color
- Pushwin saves background
- Putwind pops up the window defined earlier
- Press any key to continue"
- Colorwin will change colors without disturbing the textt
-